MacFormat 1997 February/macformat-047.iso/Demos/Chiller Killers/Chiller/Chiller.DXR/00519.ls

Text File | 1996-11-28 | 577 b | 40 lines

on mixdown
  global dd
  set dd to random(11)
  if dd = 1 then
    set dd to 150
  end if
  if dd = 2 then
    set dd to 151
  end if
  if dd = 3 then
    set dd to 152
  end if
  if dd = 4 then
    set dd to 153
  end if
  if dd = 5 then
    set dd to 154
  end if
  if dd = 6 then
    set dd to 155
  end if
  if dd = 7 then
    set dd to 156
  end if
  if dd = 8 then
    set dd to 157
  end if
  if dd = 9 then
    set dd to 158
  end if
  if dd = 10 then
    set dd to 159
  end if
  if dd = 11 then
    set dd to 149
  end if
  puppetSound(2, 0)
  puppetSound(2, dd)
end